home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bcsrce2.zip / BOXAT.BC < prev    next >
Text File  |  1990-10-22  |  966b  |  40 lines
  1. let %!a = %1
  2. if %!a0 = 0 goto ERROR
  3. let %!b = %2
  4. if %!b0 = 0 goto ERROR
  5. let %!c = %3
  6. if %!c0 = 0 goto ERROR
  7. let %!d = %4
  8. if %!d0 = 0 goto ERROR
  9. let %!z = %5
  10. if %!z0 = 0 let %!z = s
  11. upper %!z
  12. do_if %!z = S
  13.    box %!a %!b %!c %!d
  14.    exit
  15. else
  16.    do_if %!z = D
  17.       double_box %!a %!b %!c %!d
  18.       exit
  19.    else
  20.       exit
  21.    end_if
  22. end_if
  23. GOTO END
  24. :ERROR
  25. echo.
  26. echo \\7 SYNTAX---:  BOXAT #r1 #c1 #r2 #c2 [S]/[D]
  27. echo     EXAMPLE--:  BOXAT 1 1 23 80
  28. echo                 This draws a single line box from row 1 column 1 to row 23
  29. echo                 column 80.
  30. echo     EXAMPLE--:  BOXAT 1 1 23 80 D
  31. echo                 This draws a double line box from row 1 column 1 to row 23
  32. echo                 column 80.
  33. echo     NOTE-----:  S is defaulted to if there is no fifth parameter.
  34. echo.
  35. echo     Like dBASE's  @ 0,0 to 22,79 [double]
  36. echo.
  37. echo.
  38. echo If there are any errors at all, program terminates and does nothing.
  39. :END
  40.